home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / QuarkXPress Passport / QXP Passport™ Pre-release PPC / XTension / Cool Blends / Cool Blends.rsrc / HEDR_20000 < prev    next >
Encoding:
Text File  |  1997-01-30  |  3.3 KB  |  70 lines
  1. userdict/xbldct 41 dict dup begin put
  2. /setpacking where dup{exch pop currentpacking exch true setpacking}if
  3. /@1 0 def/@2 0 def
  4. /c0 0 def/m0 0 def/y0 0 def/k0 0 def
  5. /c1 0 def/m1 0 def/y1 0 def/k1 0 def
  6. /cstp 0 def/mstp 0 def/ystp 0 def/kstp 0 def
  7. /blmode 0 def
  8. /blf 0 def
  9. /blstp 0 def
  10. /blw 0 def
  11. /minblnd 16 def
  12. /mtx matrix def
  13. /T true def
  14. /F false def
  15. /B{bind def}bind def
  16. /X{exch def}B
  17. /m/moveto load def
  18. /l/lineto load def
  19. /rl/rlineto load def
  20. /p2{pop pop}B
  21. /p3{pop pop pop}B
  22. /p4{pop pop pop pop}B
  23. /setcustomcolor where{pop/docust{save 1 index 4 get
  24.  [.5 .5 .5 0 6 -1 roll] 1 setcustomcolor currentgray
  25.  exch restore dup 1 eq exch 0 eq or}B}{/docust{F}B}ifelse
  26. /setseparationgray where{pop/doregblnd T def/sepgr{setseparationgray}B}
  27.  {/doregblnd F def/sepgr systemdict/setgray get def}ifelse
  28. /setsepval{dup -1 eq{pop aload pop setcmykcolor}
  29.  {setcustomcolor}ifelse currentgray}B
  30. /setcompval{dup -1 eq{pop aload pop}
  31.  {exch aload p2 4{4 index mul 4 1 roll}repeat 5 -1 roll pop}ifelse}B
  32. /calcbnd{72 72 mtx defaultmatrix dtransform abs exch abs 2 copy lt{exch}if
  33.  pop/languagelevel where{pop languagelevel}{1}ifelse 2 ge{pop 256}
  34.  {/currentcolorscreen where{pop currentcolorscreen p2 3
  35.  {3 index 2 copy lt{exch}if 5 1 roll p4}repeat}{currentscreen p2}ifelse
  36.  div dup mul round cvi 15 add 16 idiv dup 1 lt{pop 1}if
  37.  16 mul dup 256 gt{pop 256}if}ifelse minblnd 2 copy lt{exch}if pop/maxblnd X}B
  38. /blar[
  39.  {dup neg -128 m 0 256 rl dup add 0 rl 0 -256 rl}bind
  40.  {dup neg dup m dup add 0 1 index rl dup 0 rl 0 exch neg rl}bind
  41.  {dup neg dup 0 exch m 0 l dup 0 exch l 0 l}bind
  42.  {0 0 3 -1 roll 0 360 arc}bind
  43.  {dup mul dup add sqrt 0 0 3 -1 roll 0 360 arc}bind
  44. ]def
  45. /xblnd{/blmode X/blf X blmode 2 eq{/k1 X/y1 X/m1 X/c1 X/k0 X/y0 X/m0 X/c0 X}{/k1 X/k0 X}ifelse
  46.  k1 k0/@1 X/@2 X blmode 2 eq{@2 @1 sub abs c1 c0 sub abs 2 copy lt
  47.  {exch c1 c0/@1 X/@2 X}if pop m1 m0 sub abs 2 copy lt
  48.  {exch m1 m0/@1 X/@2 X}if pop y1 y0 sub abs lt{y1 y0/@1 X/@2 X}if}if
  49.  @1 @2 blmode 2 eq{1 exch sub exch 1 exch sub}if 2 copy lt{exch}if
  50.  sub/blstp exch/maxblnd where{pop}{calcbnd}ifelse maxblnd mul round cvi def
  51.  blstp 0 ne{/blw 128 blstp 1 add div def/kstp k1 k0 sub blstp div def
  52.  blmode 2 eq{/cstp c1 c0 sub blstp div def/mstp m1 m0 sub blstp div def
  53.  /ystp y1 y0 sub blstp div def}if}if gsave 128 128 translate newpath
  54.  blmode 2 eq{c0 m0 y0 k0 setcmykcolor}{k0 blmode 0 eq{setgray}{sepgr}ifelse}ifelse
  55.  128 blar 1 get exec fill blstp 0 ne{blw 128 blar blf get blstp 1 add
  56.  blmode 2 eq{{c0 m0 y0 k0 setcmykcolor 2 copy exec fill exch 2 index sub exch
  57.  /c0 c0 cstp add def/m0 m0 mstp add def/y0 y0 ystp add def/k0 k0 kstp add def}repeat}
  58.  {{k0 blmode 0 eq{setgray}{sepgr}ifelse 2 copy exec fill exch 2 index sub exch
  59.  /k0 k0 kstp add def}repeat}ifelse p3}if grestore}B
  60. /xcustblnd{5 1 roll dup -2 eq{doregblnd{exch dup length 1 sub get 1 exch sub exch T F}
  61.  {pop dup length 6 eq{dup 0 5 getinterval exch 5 get}{0 4 getinterval -1}ifelse T}ifelse}{T}ifelse
  62.  {dup -1 eq{F}{1 index docust exch pop}ifelse}if
  63.  5 -2 roll dup -2 eq{doregblnd{exch dup length 1 sub get 1 exch sub exch T F}
  64.  {pop dup length 6 eq{dup 0 5 getinterval exch 5 get}{0 4 getinterval -1}ifelse T}ifelse}{T}ifelse
  65.  {dup -1 eq{F}{1 index docust exch pop}ifelse}if 6 -3 roll 4 -1 roll or
  66.  {dup -2 eq{pop}{setsepval}ifelse 3 1 roll dup -2 eq{pop}{setsepval}ifelse exch 3 -1 roll 1 xblnd}
  67.  {setcompval 6 -2 roll setcompval 8 -4 roll 9 -1 roll 2 xblnd}ifelse}B
  68. {setpacking}if
  69. end
  70.